unit upasxml;

interface

const

//------------------------------------------------------------------------------
//  Node Identifier
//------------------------------------------------------------------------------
  xmltagProperty                            = 'Property';
  xmltagMethod                              = 'Method';

//------------------------------------------------------------------------------
//  Common Event Tag
//------------------------------------------------------------------------------
  xmltagDataEvent                           = 'DataEvent';
  xmltagDirectIOEvent                       = 'DirectIOEvent';
  xmltagErrorEvent                          = 'ErrorEvent';
  xmltagOutputCompleteEvent                 = 'OutputCompleteEvent';
  xmltagStatusUpdateEvent                   = 'StatusUpdateEvent';

//------------------------------------------------------------------------------
//  Common Property Tag
//------------------------------------------------------------------------------
  xmltagAutoDisable                         = 'AutoDisable';
  xmltagBinaryConversion                    = 'BinaryConversion';
  xmltagCapCompareFirmwareVersion           = 'CapCompareFirmwareVersion';
  xmltagCapPowerReporting                   = 'CapPowerReporting';
  xmltagCapStatisticsReporting              = 'CapStatisticsReporting';
  xmltagCapUpdateFirmware                   = 'CapUpdateFirmware';
  xmltagCapUpdateStatistics                 = 'CapUpdateStatistics';
  xmltagCheckHealthText                     = 'CheckHealthText';
  xmltagClaimed                             = 'Claimed';
  xmltagControlObjectDescription            = 'ControlObjectDescription';
  xmltagControlObjectVersion                = 'ControlObjectVersion';
  xmltagDataCount                           = 'DataCount';
  xmltagDataEventEnabled                    = 'DataEventEnabled';
  xmltagDeviceControlDescription            = 'DeviceControlDescription';
  xmltagDeviceControlVersion                = 'DeviceControlVersion';
  xmltagDeviceDescription                   = 'DeviceDescription';
  xmltagDeviceEnabled                       = 'DeviceEnabled';
  xmltagDeviceName                          = 'DeviceName';
  xmltagDeviceServiceDescription            = 'DeviceServiceDescription';
  xmltagDeviceServiceVersion                = 'DeviceServiceVersion';
  xmltagFreezeEvents                        = 'FreezeEvents';
  xmltagOpenResult                          = 'OpenResult';
  xmltagOutpuID                             = 'OutpuID';
  xmltagPhysicalDeviceDescription           = 'PhysicalDeviceDescription';
  xmltagPhysicalDeviceName                  = 'PhysicalDeviceName';
  xmltagPowerNotify                         = 'PowerNotify';
  xmltagPowerState                          = 'PowerState';
  xmltagResultCode                          = 'ResultCode';
  xmltagResultCodeExtended                  = 'ResultCodeExtended';
  xmltagServiceObjectDescription            = 'ServiceObjectDescription';
  xmltagServiceObjectVersion                = 'ServiceObjectVersion';
  xmltagState                               = 'State';

//------------------------------------------------------------------------------
//  LineDisplay Property Tag
//------------------------------------------------------------------------------
  xmltagCapStatus                           = 'CapStatus';
  xmltagCapStatusMultiDrawerDetect          = 'CapStatusMultiDrawerDetect';
  xmltagDrawerOpened                        = 'DrawerOpened';

//------------------------------------------------------------------------------
//  Common Methods
//------------------------------------------------------------------------------
  xmltagCheckHealth                         = 'CheckHealth';
  xmltagClaimDevice                         = 'ClaimDevice';
  xmltagClearInput                          = 'ClearInput';
  xmltagClearInputProperties                = 'ClearInputProperties';
  xmltagClearOutput                         = 'ClearOutput';
  xmltagClose                               = 'Close';
  xmltagCompareFirmwareVersion              = 'CompareFirmwareVersion';
  xmltagDirectIO                            = 'DirectIO';
  xmltagOpen                                = 'Open';
  xmltagReleaseDevice                       = 'ReleaseDevice';
  xmltagResetStatistics                     = 'ResetStatistics';
  xmltagRetrieveStatistics                  = 'RetrieveStatistics';
  xmltagUpdateFirmware                      = 'UpdateFirmware';
  xmltagUpdateStatistics                    = 'UpdateStatistics';

//------------------------------------------------------------------------------
//  LineDisplay Methods
//------------------------------------------------------------------------------
  xmltagOpenDrawer                          = 'OpenDrawer';
  xmltagWaitForDrawerClose                  = 'WaitForDrawerClose';


function FormatProperty(Name, Value: String): String;

implementation

function FormatProperty(Name, Value: String): String;
begin
  Result := '<' + xmltagProperty + ' ' + Name + '="' + Value + '"></' + xmltagProperty + '>';
end;

end.
